﻿Public Class AmbientMood

    Private mName As String
    Private mMusic As New List(Of String)
    Private mSounds As New List(Of String)

    Public Sub New(ByVal Name As String)
        mName = Name
    End Sub

    Public ReadOnly Property Name() As String
        Get
            Name = mName
        End Get
    End Property

    Public ReadOnly Property Music() As List(Of String)
        Get
            Music = mMusic
        End Get
    End Property

    Public ReadOnly Property Sounds() As List(Of String)
        Get
            Sounds = mSounds
        End Get
    End Property

    Public Function RandomTrack() As String
        If mMusic.Count = 0 Then Return ""
        Dim r As New Random
        RandomTrack = mMusic(r.Next(0, mMusic.Count - 1))
    End Function
End Class